﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001" EnableSessionState = False%>
<%
Response.ContentType = "text/vnd.wap.wml; charset=utf-8":Response.Write "<?xml version=""1.0"" encoding=""utf-8""?>"
dim conn,connstr,yltdiame,yltdierver,yltdiser,yltdiassword,sulang,userid,usname,mmyjbs,glusid,mvip,murl,mml,wapyltdi,hyzb,useid,myid,ttvv,we0,we,dao,zi,zi0,sou
on error resume next
Set conn=CreateObject("Adodb.Connection")
conn.open "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("/qingtianwapqt3gcom/3gqingtian.mdb")
If Err Then
response.Write "连接数据库出错!"
err.Clear
Set conn = Nothing
Response.End
End If
%>
<!-- #include file="qtclass.asp" -->
<%
dim yltdicom,kjsjs,qkjl,tjhm,ppta,wap,qve
ppta=request("sid") :if ppta="" then:ppta=request("wap"):end if:wap=split(ppta,"-")(0):wapyltdi="wap="&ppta
myid=qingtian.nid
if myid=0 then Response.Redirect "/login.asp?sid="&wap&"&url=/game/nc/index.asp"
userid=myid
useid=myid
mmyjbs=qingtian.money
usname=qingtian.name(myid)
mvip=qingtian.vip
glusid=1  '管理员ID号
murl=""      '本站地址 如yltdi.com,
mml="/game/nc"      '安装目录 如/yltdi/nc
wap=ppta
qve=split(ppta,"-")(2)
if qve="" then qve="a"
if split(ppta,"-")(1)=0 then
ttvv=0
else
ttvv=1
end if
Set yltdi = New yltdi_com
Class yltdi_com
Public Function ctitle	

    if ttvv=0 then
we0="<br/>"
Response.Write "<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.2//EN"" ""http://www.wapforum.org/DTD/wml12.dtd""><wml><head><meta http-equiv=""Cache-Control"" content=""no-Cache""/><meta http-equiv=""Cache-Control"" content=""max-age=0""/></head>"
Response.write "<card id=""index"" title="""&yltdiutf8(title)&""">"
Response.write "<p align=""left"">"
    else
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
   Response.Write "<!DOCTYPE html PUBLIC ""-//WAPFORUM//DTD XHTML Mobile 1.0//EN"" ""http://www.wapforum.org/DTD/xhtml-mobile10.dtd"">" & chr(13) & chr(10)
        Response.Write "<html xmlns=""http://www.w3.org/1999/xhtml"">" & chr(13) & chr(10)
        Response.Write "<head>" & chr(13) & chr(10) & "<meta http-equiv=""content-type"" content=""application/xhtml+xml; charset=UTF-8""/>" & chr(13) & chr(10) 
 Response.Write "<meta name=""keywords"" content=""晴天3g建站系统,3g建站,程序开发,定做程序,wap建站"" />" & chr(13) & chr(10)
 Response.Write "<link rel=""stylesheet"" href=""/css/"&qve&".css"" type=""text/css"" />" & chr(13) & chr(10)
 Response.Write "<title>"&yltdiutf8(title)&"</title></head><body>"
    end if
End Function
Public Function out
    if ttvv=0 then
ylt("<a href='/index.asp?sid="&wap&"&amp;V=1-1'>返回网站首页</a><br/><a href='/bbs/index.asp?sid="&wap&"&amp;V=1-1'>返回社区首页</a><br/>时间:"&now()&"</p></card></wml>")
    else
ylt("<div class=""navi""><a href='/index.asp?sid="&wap&"&amp;V=1-1'>返回网站首页</a></div><div class=""block4"">时间:"&now()&"</div></body></html>")
    end if
End Function
Public Function utf8(ByVal str)
if str="" or isnull(str) then
utf8=str
exit function
End if
utf8 = replace(str,"&","&amp;")
utf8 = replace(utf8,"<","&lt;")
utf8 = replace(utf8,">","&gt;")
utf8 = replace(utf8,"$","$$")
utf8 = replace(utf8," ","&nbsp;")
utf8 = replace(utf8,vbnewline,"<br/>")
End Function
Public Function yltdiutf8(str)
str = replace(str,"<","&lt;")
str = replace(str,">","&gt;")
str = replace(str,"$","$$")
str=replace(str,"","")
str = replace(str,"&","&amp;")
yltdiutf8=str
End Function
end class
Function redtjnames(hyid)
redtjnames=qingtian.name(hyid)
End Function

%>
